Những câu hỏi liên quan
Lê Trần Bội Bội
Xem chi tiết
Bao Truong
30 tháng 12 2020 lúc 19:02

tự làm là nhanh nhất

ai đòng ý xin 1 ý kiến

Bình luận (2)
Lê Trần Bội Bội
Xem chi tiết
huỳnh thị ngọc ngân
11 tháng 11 2016 lúc 18:51

1.

program tinhtong;

uses crt;

var s,i,n:integer;

begin

s:=0;

for i:=1 to 10 do s:=s+1;

writeln ('tong cua s=',s);

readln

end.

2.

program tinhtong;

uses crt;

var i,L,s:integer;

begin

write('nhap gia tri L='); readln(L);

s:=0;

for i:=1 to L do s:=s+1;

writeln('tong cua s=',s);

readln

end.

 

 

Bình luận (1)
Bùi Văn Tho
Xem chi tiết
Bùi Văn Tho
22 tháng 4 2022 lúc 12:41

:))?

Bình luận (0)
Ngọc Trâm
Xem chi tiết
tuan manh
12 tháng 3 2023 lúc 18:22

Bình luận (0)
Unh hello linh
Xem chi tiết
MY PHẠM THỊ DIÊMx
18 tháng 3 2022 lúc 5:41

var i,s:integer;

begin

s:=0;

for i:=1 to 50 do s:=s+i;

write('Tong:', s);

readln;

end.

Bình luận (7)
Klmt ProLayer
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 23:27

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 20 do 

  t:=t+i;

writeln(t);

readln;

end.

Bình luận (1)
Phuong Nguyen
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 2 2021 lúc 9:17

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 20 do 

  if i mod 2=0 then s:=s+i;

writeln('Tong cac so chan trong khoang 20 so tu nhien dau tien la: ',s);

readln;

end.

Bình luận (0)
Tiến Lê nhật
Xem chi tiết
Khánh Quỳnh
28 tháng 12 2021 lúc 15:29

tk:

https://hoc247.net/hoi-dap/tin-hoc-8/viet-chuong-trinh-tinh-tong-100-so-tu-nhien-dau-tien-faq247722.html

Bình luận (3)
Yên Đặng
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 3 2022 lúc 20:28

uses crt;

var n,i,t:integer;

begin

n:=0;

t:=0;

repeat

n:=n+2;

t:=t+n;

until t>69;

writeln(n);

writeln(t);

readln;

end.

Bình luận (0)